home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-04_1988_-_de_Side_B.d64 / sp0256-al2 edit (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  90 lines
  1. 0 poke808,225:goto10
  2. 1 @l:print"[147]";:list100-1000
  3. 2 @p:print"[147]";:list4000-4900
  4. 10 poke53280,0:poke53281,0
  5. 20 print"[147][158]    *** sp0256 al2 phonem editor ***
  6. 100 [129]i[178]49152[164]49328:[135]a:[151]i,a:[130]
  7. 110 [153]"test...on":[158]49152
  8. 120 [129]i[178]0[164]800:[130]
  9. 130 :
  10. 140 [153]"opengeben sie die zahlenfolge ein.":[141]2000
  11. 150 [141]3000:[141]4000:[158]49152
  12. 1000 [153]"":[137]150
  13. 1100 [131] 76, 5, 192, 133, 192, 120, 169, 58, 141, 20
  14. 1101 [131] 3, 169, 192, 141, 21, 3, 88, 169, 255, 141
  15. 1102 [131] 3, 221, 173, 2, 221, 9, 4, 141, 2, 221
  16. 1103 [131] 169, 0, 141, 1, 221, 173, 0, 221, 41, 251
  17. 1104 [131] 141, 0, 221, 169, 133, 133, 251, 169, 192, 133
  18. 1105 [131] 252, 169, 0, 133, 253, 133, 254, 96, 165, 254
  19. 1106 [131] 240, 5, 198, 254, 76, 88, 192, 164, 253, 177
  20. 1107 [131] 251, 230, 253, 201, 0, 240, 14, 32, 109, 192
  21. 1108 [131] 164, 253, 177, 251, 230, 253, 133, 254, 76, 49
  22. 1109 [131] 234, 169, 0, 32, 109, 192, 169, 49, 141, 20
  23. 1110 [131] 3, 169, 234, 141, 21, 3, 76, 88, 192, 72
  24. 1111 [131] 173, 0, 221, 9, 4, 141, 0, 221, 104, 41
  25. 1112 [131] 63, 141, 1, 221, 173, 0, 221, 41, 251, 141
  26. 1113 [131] 0, 221, 96, 35, 5, 26, 15, 38, 5, 49
  27. 1114 [131] 10, 42, 4, 1, 20, 16, 5, 23, 15, 33
  28. 1115 [131] 5, 22, 14, 62, 10, 1, 20, 49, 7, 43
  29. 1116 [131] 8, 1, 20, 7, 10, 42, 10, 13, 5, 49
  30. 1117 [131] 11, 57, 10, 1, 20, 0, 0
  31. 2000 [153]""
  32. 2010 [129]i[178]1[164]10:[153]"print........................................";:[130]:[142]
  33. 3000 x[178]10:y[178]0
  34. 3010 [151]214,x[171]1:[153]:[151]211,y
  35. 3020 f[178][194](1024[170]x[172]40[170]y):[151]1024[170]x[172]40[170]y,f [176]128
  36. 3030 [161]a$:[139]a$[178]""[167]3030
  37. 3035 p[178]1024[170]x[172]40[170]y
  38. 3040 [139]a$[178]" "[167]a$[178][196]([171]2)
  39. 3043 [139]a$[178]"input"[167][158]49152:e$[178]"sprachspeicher sprechen":[141]5000
  40. 3045 [139]a$[178]"dim"[167][141]4040:e$[178]"speicher zeigen":[141]5000:[137]3000
  41. 3047 [139]a$[178]"read"[167][153]:[141]2000:e$[178]"feld loeschen":[141]5000:[137]3000
  42. 3050 [139]a$[178]""[167][151]p,f:f[178][194](p):[137]3110
  43. 3055 [139]a$[178]"let"[167]e$[178]"file abspeichern":[141]5000:[141]6000
  44. 3060 [139]a$[178]"cmd"[167][151]p,f:y[178]y[171]1:f[178][194](p):[137]3120
  45. 3070 [139]a$[178]""[167][151]p,f:x[178]x[170]1:f[178][194](p):[137]3200
  46. 3080 [139]a$[178]"on"[167][151]p,f:x[178]x[171]1:f[178][194](p):[137]3200
  47. 3090 [139]a$[178][199](13)[167][151]p,f:[142]
  48. 3095 [139]a$[179][177]"0"[167][139][197](a$)[178]0[167]3030
  49. 3100 [151]p,[197](a$)[170]48:f[178][194](p)
  50. 3110 y[178]y[170]1:[139]y[177]39[167]y[178]y[171]40:x[178]x[170]1
  51. 3120 [139]y[179]0[167]y[178]y[170]40:x[178]x[171]1
  52. 3122 [137]3200
  53. 3125 p[178]1024[170]x[172]40[170]y:f[178][194](p)
  54. 3130 [151]p,f [176]128
  55. 3140 [137]3030
  56. 3200 [139]x[179]10[167]x[178]10
  57. 3210 [139]x[177]19[167]x[178]19
  58. 3220 [137]3125
  59. 4000 z[178][194](49155)[170]256[172][194](49156):e$[178]"feld auswerten":[141]5000
  60. 4005 z2[178]z:a$[178]"":[129]i[178]10[172]40[170]1024[164]19[172]40[170]1024
  61. 4010 [139][194](i)[177]46[167]a$[178]a$[170][196]([194](i)[171]48):[137]4030
  62. 4015 [139]a$[179][177]""[167][139][197](a$)[177]255[167]a$[178]"1"
  63. 4020 [139]a$[179][177]""[167][151]z2,([197](a$)[175]63):z2[178]z2[170]1:b$[178]a$:a$[178]""
  64. 4025 [139]b$[179][177]""[167][139]([197](b$)[175]63)[178]0[167]i[178]19[172]40[170]1024
  65. 4030 [130]:[151]z2,0:[151]z2[170]1,0
  66. 4035 :
  67. 4040 [153]"":z[178][194](49155)[170]256[172][194](49156)
  68. 4060 [141]2000:[153]""
  69. 4070 [129]i[178]z[164]z[170]1000:[139][194](i[171]1)[178]0[167][139][194](i)[178]0[167]i[178]z[170]1000
  70. 4080 a$[178][196]([194](i)):[139][197](a$)[179]10[167][153]"0";
  71. 4085 [153][201](a$,[195](a$)[171]1)".";
  72. 4090 [139][194](214)[179]19[167]4120
  73. 4100 [139][194](211)[179]79[167]4120
  74. 4110 [142]
  75. 4120 [130]:[142]
  76. 5000 [141]5005:[129]ii[178]0[164][195](e$)[172]70:[130]
  77. 5001 e$[178]"                                   "
  78. 5005 [153]"";:[129]ii[178]1[164]21[171]([195](e$)[173]2):[153]" ";:[130]
  79. 5010 [153]e$:[142]
  80. 6000 :
  81. 6010 [153]"openname des sprachprogramms:def";:[160]1
  82. 6015 [159]1,0:[132]1,a$:[160]1:[153]
  83. 6020 [159]1,8,15:[159]3,8,3,"sp-"[170]a$[170]",p,w"
  84. 6030 [132]1,a:[139]a[178]63[167]e$[178]"den namen gibt es schon!":[141]5000:[137]6000
  85. 6040 [139]a[177]19[167][139]a[179][177]73[167]e$[178]"diskette pruefen!":[141]5000:[137]6000
  86. 6050 [152]3,[199](0)[199](192);
  87. 6060 [129]i[178]49152[164]([194](49155)[170]256[172][194](49156))[170]400
  88. 6070 [152]3,[199]([194](i));:[130]
  89. 6080 [160]3:[153]"                                       ":[142]
  90.